macro 'erode image strongest [1]';
begin

SetBinaryCount (1);
Erode;

end;

macro 'erode image ... [2]';
begin

SetBinaryCount (2);
Erode;

end;

macro 'erode image ... [3]';
begin

SetBinaryCount (3);
Erode;

end;

macro 'erode image ... [4]';
begin

SetBinaryCount (4);
Erode;

end;

macro 'erode image ... [5]';
begin

SetBinaryCount (5);
Erode;

end;

macro 'erode image ... [6]';
begin

SetBinaryCount (6);
Erode;

end;


macro 'erode image ... [7]';
begin

SetBinaryCount (7);
Erode;

end;

macro 'erode image weakest [8]';
begin

SetBinaryCount (8);
Erode;

end;


macro '(-' begin end;

macro 'dilate image strongest [a]';
begin

SetBinaryCount (1);
Dilate;

end;

macro 'dilate image ... [b]';
begin

SetBinaryCount (2);
Dilate;

end;

macro 'dilate image ... [c]';
begin

SetBinaryCount (3);
Dilate;

end;

macro 'dilate image ... [d]';
begin

SetBinaryCount (4);
Dilate;

end;

macro 'dilate image ... [e]';
begin

SetBinaryCount (5);
Dilate;

end;

macro 'dilate image ... [f]';
begin

SetBinaryCount (6);
Dilate;

end;


macro 'dilate image ... [g]';
begin

SetBinaryCount (7);
Dilate;

end;

macro 'dilate image weakest [h]';
begin

SetBinaryCount (8);
Dilate;

end;

macro '(-' begin end;


macro 'back to saved [X]';
begin
  RevertToSaved;
end;


macro 'reset LUT [R]';
begin
  ResetGrayMap;
end;


macro 'scale to pixel [P]';
begin
SetScale(0,'pixel');
end;


macro 'invert image [Y]';
begin
Invert;
end;


macro 'make binary [L]';
begin
MakeBinary;
end;


macro '-';


macro 'Median filter image [M]';
begin
   SelectAll;
   Filter('median');
end;


macro 'prune image [I]';
var
  i,j,:integer;
begin
PruneSkeleton;
end;
end;


macro 'skeletonize image [J]';
begin
Skeletonize;
end;


macro 'outline [O]';
begin
Outline;
end;


macro 'thicken lines [T]';

begin
  SelectAll;
   Copy;
   MoveRoi(1, 0);
   Paste;
   DoOr;

  SelectAll;
   Copy;
   MoveRoi(0, 1);
   Paste;
   DoOr;

end;

macro 'super thicken lines [W]';

begin
  SelectAll;
   Copy;
   MoveRoi(1, 0);
   Paste;
   DoOr;

  SelectAll;
   Copy;
   MoveRoi(0, 1);
   Paste;
   DoOr;

  SelectAll;
   Copy;
   MoveRoi(-1, 0);
   Paste;
   DoOr;

  SelectAll;
   Copy;
   MoveRoi(0, -1);
   Paste;
   DoOr;

end;


macro '-';


macro 'minimum filter image [U]';
begin
Filter('min');
end;


macro 'maximum filter image [V]';
begin
Filter('max');
end;

